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BEGIN COMMENT CP SYMBOLIC SUBPROGRAM TAPRK MAINTENANCE OOUVOLOd 
rd] UTLETTY RUUTING} 000U0200 
Nae = ae . BAA dear seins tee saan hee Tents Cosi. = eB See aguante Gal. hee oct 4.10 COS US OG 
COMMENT? * TITLES 895uU0/85700 MARK XIV SYSTEM RELEASE * 00000310 
@ * FILE IU? SYMBOL/MAKCAST TAPE [0% SYMBOLI/FILEQOO * 00000311 
Mi Beem * THIS MATERIAL JS PROPRIETARY TQ BURROUGHS CORPORATION *  Qu0V0312.. 
ps * AND IS ACT TG BE REPROVUCEL» USED,» UR DISCLUSED * 00000313 
. * EXCEPT IN ACCURDANCE WITH PROGRAM LICENSE GR UPON * OQUu00314 
Deon * WRITTEN AUTHORIZATION UF ThE PATENT DIVISION OF . . *.... 09000315... 
? * BURROUGHS CORPGRATION»s VETRUIT, mICNIGAN 48232 * 00000316 
e - i 00000317 
io * COPYRIGRT CC) 19712.197e BURROUGHS CORCPORATION. ...»*... 00000318 
wu * AA3202CE AA393180 *3 0C0U031$ 
@ il OUUUO4OD 
(gute .BOULEAN ARRAY OPEN(Otg];.. —UCN00500 
is BOULEAN SING} 00000600 
ee. BOOLEAN PATCHATOGs PATCHCTUG3 0000700 
eee DEFINE PFROMBsIF MLISTOG OR LISTUG ThEN PPP.C47sljels. 9000800 |. 
16 IF MPUNTOG GR PUNTOG THEN PPP, C46tlleys ds OCULO900 
eo" DEFINE PFRUMM=IF MLISTOG THEN PRP,C4/781J)¢13 0001000 
—_ - IF MPUNTOG THEN PPR eC oOtd jedi as — ef QOD USEC Ca «crit cein Shocked 
1 INTEGER NEWRCs EDROWs EUPOS» JIMGUUT» BCUUTS 00001200 
r INTEGER IMGs Reb» RCI 00001300 
a BOULEAN CCBUFFS. | id Seets a! ahh tae “Satna OOVdIAOO . .. 
a BCCLEAN B1 5 00001500 
@ * INTEGER ARRAY RECLOi2]3 00001600 
Plan eats ARRAY FINARKLC!I55]3 Qouu1650 
rr INTEGER ROWS 00UU1700 
@« INTEGER RRedl3 OueviBOC 
= 5 ene BOOLEAN ENDTOG: eee BREN puttin ae ae cee ce nit enna wien ow OO00100.8.. 
ae si BOULEAN RENAMETOG; 00002000 
a BOULEAN LISTOGsPUNTCGs SEYATOUs SELCTOLs wiTHTGGs AFTERTOGS Qvvv02100 
3 Plicanah: J ANTEGER SEQINCANITHINDEXS oe ie ttt ts ven, 0.90902200.. aoa 
os SAVE ARRAY TESTARR [Ct2613 00002300 
s@»* REAL DUMY3 % DO NOT REMOVE THIS CARD 00002310 
oe _ SAVE FILE CASTA DISK SERIAL C205100) "CaSTA™"LIBRARY"(1,56eSAVE 2)3. 90002400 ERIE TRO te ea ee Ee 
SAVE FILE CASTB DISK SERT~L £203100) "CASTB”"LIBXARY"(1256sSAVE 2)> 00002500 
@* SaVE FILE CASTC DISK SEAT AL C20%100) CASTELL oman yt (1 sS6,5AVE 2)3 Ocvd2so5 
— FILE IN 2 "OCCRD IMG" (C1s56s10)% CARU (1s 1G) SOLT Che 9621008 0 oo 96002510... 
7 FILE IN A OISK SERIAL MOASTA" NLIBRARY "(4 556)3 00002515 
@* FILE IN B DISK SERIAL "CASTB™ "LIBRARKY"( 125628 00002600 
‘(i eee FILE In. € OISK SERDAL "CAST COC". "LIBRARY"(C1256)3 000 80002700 
aol FILE OUT LINE 4€2@s15)3 ARRAY PRINT Coti4als o0ouv2 800 
@: DEFINE PRINTLIWE = WRITECLING 15+ PRINT(C *J 43 000C2850 
: FILE OUT PUNCH O Cleto)s. biatch sable a oe tia Mes oe icutilte iain sae SOUS OOD. 22 cio ges ae, 
SWITCH FILE FOUT*CASTA*CASTH*®CASTC 3 . 00003000 
@ SWITCH FILE FIN® AsBeCoZeCARDsSULT 3 . 00003100 
uu SAVE FILE CFA "CASTA"(1*5628AVE 100)2 202 003200 ro 
CFB "CASTBY"(1256,SavVE 100), 00003300 
@ CFC NCASTC™(is56,SAVE 100)3 00003400 
ee ETCH FALE. Che Chae Cy CEC Isc moe ti el hee tee as 00003500 0 
BOULEAN COPYTOG; ) 00003600 
e SAVE ARRAY DUMMYLO!9 ys PATCHDUMMYLO!%9 ), 00003700 
__ INTEGER  GT53 isaac oes tes eich Site als a 00003800 
DEFINE TEST1= IF GT54#0 THen IF GT15=) THEN GU TO E10 ELSE Go TU E9 #3 00003900 
@ INTEGER ADDINDEXS 00004000 
; INTEGER X30 Pa ae eras UC ALON : 
5 INTEGER TEMP» LIG@CUTIX» LIBINIX3 00004200 
er | LABEL MORE» .LASTCARDS Q0004300 
LABEL EQ» Els Es E3s Ear € eS £6 Els E8s EG» E403 00004400 
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@ eee, é 
eet oie bya be ACCUMA CANE NA WHICH TELLS HOW MANY CHARS) 00005000. _ eee ee Oe 
4 WILL ALWAYS CONTAIN THE IDENTIFIER ASSUCIATED 00005100 
e° WITH AUC IDENTIFILR 00005200 
et ee = oo PATCH LULENTIBIER eee state Sch ee OOOUS ACO 2 ddd ble Pu tine 
v REPLACE IDENTIFIER 00005400 
e' DELETE IDENTIFIER 00005500 
wan oe JWENTIELER ETC (MAKE GR DISPLAY SUBCC) 000056CO ©... 
26 ACCUMB CANL N& WHICH TELLS HOW MANY CHARS) 00005700 
Y WILL ALWAYS CONTAIN THE IDENTIFIER ASSOCIATED 00005800 
WITH AFTER LUENJFIER 00 OU  p00Ud900 = 
u WiTh IuENTLE LER 00006000 
. a ACCUMC CANUG NC WHICH TELLS HOW MANY CHARS) 00006100 
_ WILL ALWAYS CONTAIN THE IDENTIFIER ASSOCIATED 00006200 
: WITH REMAME LOENTIF LERS 00006300 
e@ ' INTEGER NAsNBsNCotDs COMMENT NUe OF CRARS, IN ACCUMA===ACCUMDS 00006400 
ie INTEGER NCR CUMMENT. U2E0. HY. SUBCCHANOLER@CUNTALINS..... 00048500 
M" THE ABSULUTE ADDRESS OF NEXT 00006600 
eo BUFFER POSITION TO’ BE SCANNED3 00006700 
5s ee INTEGER IDENTIX: COMMENT FOR. MAKE SUdCC GF TYPE xxx..ON. Be THIS. ...00006g800 poeeeeareer 
a INDEX LUCATES BLUB WHERE OFA 00006900 
e« 134 000N7000 
_ 230... _00UU7100.. . 
= 3=CCRD 00007200 
Pe 4=CARD READERS. 00007300 
ema ee SENTE GER ZOU TEMES. cccet a cdScelsicteye duis. ore antes eiiitelafattaeasd aitagsctcentnsal nearest RE: 610100, 0 1: eee 
ae BOOLEAN RETURNS COMMENT UskD BY PROCEDURE SUBCCHANULER 00007500 
@* TU SIGNAL CONTINUATION CARDSS 00007600 
OU ae BOOLEAN ADDICGS COMMENT SET FOR MAKE SudCc OF TYPE. OouO7700.0 
- ADD XX ETCas 00007800 
@2 BOOLEAN ADDENDTOGSCOMMENT SET FUR MAKE SUBCC OF TYPE 00007900 
Dok 8 Me . ADO XYZ ENU"*OR ADC. XYZON. BEND LIST ETc.s.... oovasnooO. ..... Rene nterer a RE OEM 
a BOOLEAN ADDAFTERTOGS COMMENT SET FOR MAKE SUBCC OF TYPE 00008100 
@- ADU XYZ ON 6B AFTER BLOBX ETCe3 00008200 
ont BOULEAN PATCHTOGsREPLACETOGs*DELETETOGs con as 00008300... Pee eee: 
COMMENT THESE THREE AND 00008400 
ADOTOG INDICATE BASIC TYPE OF 00008500 
Lo 1 uw MAKE FUNCTION TO BE PERFORMED. 00008600... |... ates ae or Ant 2 . 
1F NONE ANE SET» WE CAN ASSUME 00008700 “0 
| A SUBCC UF TYPE "XYZ ON BY WAS 00008800 1@ 
Pass each yg teal te eens ean ee, etna aS eine NE RE Dg DOP NLL ote SUN E RE. 25 OOUOKQOQ =a... = ae we has 
‘: THAT BLOB CAN. BE FOUNDS 00009000 
| BOOLEAN  MLISTOG*sMPUNTOGeCIRTOG» DISTOG»s MKTOGsMKFTOGe 00009100 «@ 
ee ere eaten MERRTRGR of celts dee tenet sh eg i ia rnc BS OOO OS BOW og ape acct engi 4 
“SWITCH FURMAT SWFe (" "), 00009300 “ 
(Tee kkk kee JCH TEKMINATEDe ERROR IN MASTER CONTROL CARDy")> 00009400 “\@ 
FN ee ee ee eae JCB TERMINATED, ERROR IN SUBLONTROL CARD.")s  QQUU950Q a el ee me ‘8 
CWetkakeeeeeewee JOB COMPLETE = NO ERROR SITUATIONS ENCOUNTERED™)»s 00009600 ay 
(Neeeeeeeewewehee JOB TERMINATEO™ ITEM NOT FOUND IN DIRECTORY"), 00009700 1®@ 
Os aaa ee ttt eee 08 TERMINATED=DIRECTGRY ON TAPE HAS ER T™90009800 Betta un ceaee 2 
Vo (Nee aki CR TERMINATED*TMREE ATTEMPTS TU POSITION THE TAPE WE 00009900 | 5 
RE UNSUCCESSFUL")>» 00010000 1@ 
~_ _ OM oie JOB TERMINATED). MAKE FUNCTION DELETE OPTION 00010100 sith tee ae eat 6 
“NO INPUT TAPE SPECIFIED" )>» 00010200 55 
CO etaokidiiogiineion JOB TERMINATED. PROGRAM NOT PRESENT IN DIREC00010300 J@ 
sSessere NR Seaet 8e  t AR ate ac los, eas! oS a Ee ae ere tere eee eC ET we 9OO9190G00 BY 
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(Mek e eee JOB TERMINATED, KEFERENCEU PRUGRAW NOI FORWARD ON MASTER INPU00010500 
T TAPE,")» 00010600 
S. ah eae: ONO eioge 0K TERMINATED. GULPUT TAPE. DIRECTORY. OVERFLQQ010700.._... 
1 OW" )y (ae eeeeweee JOB TERMINATEDs ADD TYPE DIRECTORY OVERFLOW"); 00010800 
: STREAM PROCEOYRE FIXFIB>CAs8)3 00010820 
De cn ebets VALUE BR uw Le sok pakatechGealiatesy a) Grday hy asetente eat Rak Oat pied tome ee OOM LOR IO: 
i BEGIN 00010840 
7 LOCAL X»Y3 00010850 
i eters RABEL -EXIETZO OL, wipers iecina te ts, Mg gf sells hie gate labamales indents yume a8) BC n a acai Lot oal sealed 
SI AS SleS1+83 B(ST#S1+8)3. 00010870 
DI * LOC x3 DS ¢ WS; Sl ¢ k; Sle Slo; 00010880 
Oh et DY «LOC Xs... DS.¢ woSs ST © AR Sle ST+403 _. . 00010890 .. | 
he X ¢ ST} SI ¢ Sr#403; Sr ¢ SL+48; SKIP 7? SB3 00010894 
i IF $B THEN BEGIN OL ¢ x3 SKIP 43 Og3 00010892 
C—— OS ¢ SETS... G0. ExT gNbs 06010893 
ha EXIT? END FIXFIBD3 00010894 
Mi PROCEDURE PAG; 00010900 
Piha a a . -_ SBE Mocs on. f a ponte atin ett cea Spied istaanate aatteh sta Bh ata: 900119000. 
ae IF NOT SING THEN WRITECLINELPAGEJ)3 00011100 
i END PAGS 00011200 
ee : ... BOOLEAN STREAM PROCEQURKE LOUKUP Coe TeTEMPeNeM 200 VALUE MS 0. OUN1130O0... Ow 
iB BEGIN LOCAL x3 00011400 
“ SI*A} ODleTs M(OTeDI+8)3 IF 7 SCSDC THEN 00011500 
Pax ence .... BEGIN TALLY e412. LOGKUPSTALLYS SleSte73 CleDl*73 1f.2 SCspc. 0... 00011600... ow. 
a THEN BEGIN X*D13 SIex3 00011700 
is CIENS DIDI +7 s DS" CHRSULOTEMPSNIe DL +730Se1L LIT"; 00011800 
é bod END ENDS. .. Sola pee e+ Pisks dias yp Paluch te: <igiel waite ated weet: pitt, el re ieee 2 OOO OOO 
COMMENT a IS accuMe T IS TESTARR» TEMP IS BHUOLEAN FOR EQUALITY 00012000 
FOUND» N LS NUOUT@VALUEs M IS MIDODLES 00012100 
END LOOKUPS. 20 mee Shas Dj naire tare eee eter ot Ne ee OOO VI OOO aise vaca: ie, we ging ae 
BOOLEAN STREAM PRUCEDURE LEGALNUMCAS WNDG 0G012300 
BEGIN LABEL LeoFesEXIT® LOCAL Ts STeNs DIleLOC Ts DOSewWDS3 00012400 
et atest dat, ote S oo TALLY¢L 3. LEGALNUM¢TALL YS Sleas IF SC="1" THEN BEGIN 00012500. oo 
a SieSte1s [CIF SCe"0" THEN BEGIN S1eS1413 GO TO Ls END 00012600 
* ELSE JUMP OUT 1 710 Fs £223 END ELSE GU TO F3 00012700 
es. TALLY ©TS TALLY*TALLY+44 TeTALLY3. Betas _.. 90012800. SNe eet eee ees 
# COMMENT NOW INPUT CONVERT T CHRS3 06012900 
3 DIfCNS SI©AS DS" T UCT * GU TU EXITS 00013000 
es TALLY ¢03. LEGALNUM*#TALLYS OO Be Dit BIE AIS dN i atta Od Oats ote he GE ae ee ee i 
la EXIT: ENO LEGALNUMS 00013200 
r 00013300 
i te BOOLEAN STREAM PROCEDURE LEGALIDCAsN)F VALLE Ni 000LSHO0 
‘ BEGIN LABEL EAITs BAN» BoF3 00013500 
a Si*as [F SCRALPHA THEN GU & ELSE GO BADS 00013600 
TO Leche ca, Bt INCL SCEALPHA TrEN BEGIN a i Sn be WOME STG a al tla to 
bas IF Sc2 "oO" THEN GO F ELSE Beat 00013800 
4 TALLY#13 GO F3 ENDS 000143900 
hy ce ANT oe A Oe Re Ne Oe NE 2° eee a OO0NMO00 art 
46 TF SCa"=" THEN JUMP OUT TO BADs 00014010 
Fé SreSle413)> ~ 90014020 
: OD eee ioe ee eres ae ee Sicgiels 1F Ssceren THEN GO BAD ELSE GO O00014Q30 0000 
EXIT 00014035 
BADE TALLY #03 00014040 
aoe he ole ERE Eo or, REGAL TOOT ALL Ve 
END OF LEGALIDs 00014060 
INTEGER PROCEOURE SCANSEARCHCACCUMsN)3 00014100 
eee a ARRAY AC CUME OIG INTEGER ONS oo BEGIN: 00014200 
INTEGER LOWeHIGHsMIDOLE »NUGUT 3 00014300 
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COMMENT SCANSEARCH WItn FlWU OFkRROUR 00014600 
e 1 THRU L@ = RESERVED WOS " 90014700 
Des aN et act ae - PM Me layids atode Rekne 4 Bet Gondor OS AEG We ADEN Tid os corer state akastanc Ou 4a0 0 
20s LEGAL NUMERIC 00014900 
eo. IF N>? THEN GO TU AS HIGH#2735 LOWed; 00015000 
Pin tok otoitte Bide wtthectued -WHILECHIGH@LOWJ>1. 00. BEGIN MIDDLE e(RIGh+LOWIOIyV 24 90015100 
a IF LOOKUPCACCUMC *#JsTESTARRL*) + TEMPs\LGUT» MIDDLE) THEN BEGIN 00015200 
e° IF TEMP THEN GU TU EXIT CLOSE KIGHeMIDDLE END 00015300 
Oe ee oc as he es ae Cees we bb SE LUWeMIDOLES ENDG.. SoS wna dated eh teach cette OOO PS BO Oh com o's ya 
j COMMENT VALUE IN ACCUM IS NOT RESERVEU WO3 00015500 
eo: At IF LEGALIDCACCUMsN) THEN BEGIN NUOUT*#193 GO TO EXITs ENQ 00015600 
Meo vial, 22 Se. as oe oe ELSE BEGIN NeNep ep en G1 01, 0) OL W 2 0 «em 
" IF LEGALNUMCACCUMsN) THEN NUQUTe20° ELSE NUOUT ¢03 END3 0cv15800 
@ EXIT: SCANSEARCHe NUUUTS END SCANSEARCHS 00015900 
a eareas STREAM PROCEQURE. PRINICUCLINE® CARD IB lk te cunt entey wee  c p . 009016000 
i BEGIN 00016100 
@ DI©LINES CS*A LIT 7 00016200 
ae ee Sle CARD: OSe 9 WOSs & sich Wis Nidonieite Bee imal 4 eho Noe YOO Te 8 O-s J 
OS* 16 LIT " "3 DS ¢ wOSs 00016400 
eo 2¢SIeLINES CS* WDS3)3 00016500 
ae et _ END PRINTCC2 -_ SUES .awS aie NOR ESCO: 
1 STREAM PROCEDURE ZOTCZOTTEMP» CHAR» BUFFER )3 00016700 
eo. VALUE CHAR? — 00016800 
Ah owns ve eee. .. ., BEGIN. DI©ZOTLTEMPS. SLeBUFFERY OSewoOS?  _2ooolw ow oo 00016900... 
a DI©BUFFERKS SI©LOC BUFFERS SIe*SIm14 O5¢CHR 00017000 
eo: END PROCEDURE ZOTS 00017100 
a ene INTEGER STREAM PROCEDURE . MKABSCA)S ce ha% eles of ace ues an OUUD L200: 
= BEGIN DL*A} MKABS*D1; END PROCEDURE MKABS; 00017300 
@ - ' BOOLEAN STREAM PROCENURE LEGALCCONCANsNCRVO RETURN) S 00017400 
i eae ae . MALUEONCRV2.. BEGIN. LUCAL T13 LABEL AsBeDuxXeCeDs. —.. GO017500 
"6 LOCAL TEMP: 000176009 
@ 7 Sle NCRV3 DI*LUC Tis UI© DI + 25 DS* 6 LIT "S$$85—$"5 00017700 
a ties BN, att OL) DL 2 6k... seccnscstielendsine, abe cule? gutinve egpeings iB Act WO ete hacia tapriee AOU FG ON 20.082: 
IF 3 SC=DC THEN GO TN A; 00017900 
@” SleSI=33 IF 3 SC#DC THEN GU TO b5 00018000 
OTe ee CHE. TALLY GOS LEGALCCeTALLYs GO TO OuUXs. Sim. ie acchis Munedshy oartoupdserutetae Teraseet Anacapri el @ WB OS ee Bes as So shoes be as 
ce At OLRETURN? CIeOI+73 DSe 1 Litton; 00018200 
@~ D: TALLY*{$ LEGALCC«TALLYs GU. 10 OUx3 00018300 
SD eta PIG K See LB Media! B$ ODI*RETURNS DI] l+/sD0S¢) LIT MA") Go TO Da cece were 1 a OV18400. 
. OUX? T1¢STs DI*NCRNG 00018500 
e« Sle LOC T13 US«ewWOS3 00018600 
tema Bes END PROCEDURE (LEGALCC Feo out oat oe aces anon ee ot OM OL ET OO ln i kts 
q PRUCEDURE REAMACARD3 00018800 
@« BEGIN IF NOT CCHUFF THEN RELEASEC CARD) ELSE . 00018900 
We vig ni tits 2. bin, oa oe ECE EP ALSE Siri 2 jepiileb eee Ss Sn te eg VOULIOOO Re eee eee 
43 “PRINTCC CPRIATEO)]» CARD(O))2 INTLINES | “00019400 
@ ZOTCZCTTEMP» bere iacesae 00019200 
. _NGRe MKABS (CARDCO))4 2 00039300 
“END PROCEDURE REAUACARDs 00019400 
BOOLEAN STREAM PROCEDURE SCANCACCUMPsNsNCRNeNCRV) 3 00019500 
vee ee ee ee MALUE NCRVG wath ota, Aho ashes wdotnnen wie ae tee a OOUTG 600s nee A ee 
BEGIN LABEL A» Cpr RESETNCRe SETNUMCHRs Us OUXe 00019700 
. LOCAL TEMP; -_ : 00019800 
tiie IE ele ee ween a be NORV OD LOAC CUMS 6 on ee PO  QOUSIOOO . 5 
— , 2c35CIF SC=" " THEN SI*SI¢#1 ELSE JUMP OUT 2 TU As))3 © 00020000 
At TALLY@13 IF SC="%" THEN BEGIN DS*CHRZ GO SETNUMCHRS 00020100 
Me hiatote od Red Geena trdersteee Ne easter _ ENDS eee aes OO O20 Ge ao. ace, ape ee ee 
63(DS*CHRs IF SC="S" THEN JUMP OUT 1 70 C3 IF 00020300 
SCa® "THEN JUMP QUT 1 TO C3 TALLY*#TALLY413)3 00020400 
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CERESETNCRS TEMPeSi3 UleNCRNS STe*Loc Temes [EoeNngS; 0C22060G6 


SETNUMCHR: TEMP*TALLY; SI*LOC TEMPS DIeONS DSewDSs oov20700 a 
Raaer wee, ot ONS sna, tate. || ALI Lo ORNS DA ps oc, aden een Bu eee ariel 3 ot tle al la 4 OU U ROMO. 0 > die cxcgtn teed acta Suntan coisas cnet 
; OUX3 ENOS 00020900 : 
2, COMMENT THE FOLLOWING DEFINES ARE USED BY PROCEDURE SUBCCHANDLER 00021000 2\@ 
Dintiatehese ety Sorta bin IN CSCANNTNG ENTITIES ON THE: CARD lc tes ete am eat tins el QOPI OO. cma view ienndce ee 3 
_ Le SCANPERCENTERROR EXFEGTS TO FING AUDITIUNAL INFU ON 000¢1200 : 
: CONTINUATION CARDS IF A & SIGN IS ENCOUNTERED AND WILL 000¢1300 @ 
DNS to osy ey . FINALLY. BRING GUT THE. NEXTUENTITY Wilh XSVALUE UF SCAN®... 00021400 ... 8 
; SEARCH. IF IN READING THE CARDS AN ERROK SITUATION IS 00021500 ? 
@ ENCOUNTEREDsPROGR, WILL BRANCH TG ERROREXIT IN 00021600 |@ 
Pes see ee NA oo . . . SUBCCHANDLERs UR IF NO ADDITIONAL INFO ON CARDSs .........00021700  __. pe Rat alec 2h nya Mel ce BaP ee ee ss 
Iw 2. SCANPERCENTEXIT WilL SEARCH CUNTINUATIUN CARDSCIF. 00021800 Bi 
@ sf NECESSARY AND BRING UUT TRE WEXT ENTITY WITH X®VALUE OF OGUE1900 1@ 
Bho hee Beir oa eeeete, -SCANSEARCHeIF. NG MORE INF UsPROGRAM WILL HRANCH TO... . . go022000 See AY te ey eee cee Ret a ee ree A eee 
4 GOODEXITS 00022100 is 
eo: DEFINE AMORE= 00 00022200 Wl@ 
Pa err ee ae ee . ~BEGIN, FILL ACCWMAC*I WITH 0CT6060606060600060;. . .. 00022300 ses + Kia se are a et ee 
IF NOT SCANCACCUMA*NASNCRs NCR) 00022400 Gs 
rE THEN GU TO ERROREXLTS 00022500 @ 
HY ae acs cael dist begs * 3 . oo dE XE SCANSEARCHCACCUMA® NA) SO THEN GL. ERROREXIT2. DOVCEGOO 2 «shen pa RGa ieee ee tei ees ce ae Sa ee Toe Ol ae I 
eo IF X516 THEN 00022700 ie 
e” BEGIN IF NOT RETURN THEN GO TO BADGOUDEW)3 ooc22800 @ 
ree A asc AB iy ath ven 2 otees oon .. READACARDZ IF NOT. | | LEGALCCONCReNCReRETURNIOOO2Z2900. . 2q 
uw THEN GO TO ERRUREXITS 00023000 27 
e*« ENCS END UNTIL X¥ 18583 . C0023100 4@ 
mou.  OMEFINEG BMORE= 00. | |. Sisnes na antics db. ocelebencacepantaciohent abucusn® Se cad Reha OOOPaeOO” . . Ceol aA Te See ie a are eA ko, bey a tae Obata Veh elle 
i BEGIN FILL ACCUMBE*I WITH tCTEVECE0E0600080E0; 00023300 o 
@* IF NOT SCANCACCUMBs NBs NCHA NCR) 00023400 | @ 
ae a ea re — THEN.GO.TO..ERROREAITS |. . ween en €0023500 © sass (eo we Geeta tenetate nce eate ee AG Bay ee f 
a IF X@SCANSEARCH(ACCUMBs NB) =0 TREN GO “ERROREX ITS 00023600 a 
@* IF X18 THEN 00023700 1@ 
Pith .ds, oettas "oe as . BEGIN TF NOT RETURN THEN GO TO BALGOUDIWIs , 00023800. eT BRN 9, wp Oeics ee gr ah ne eat Tee eee he eee wie an 
o READACARDS IF NOT LEGALCCCNCR* NCR* RETURN) 00023900 
@ THEN GO TO ERROREXIT} 00024000 1@ 
M eesmeteyte cece: 6 . ENDS END UNTIL X 418 5H ob pice iat B Ging, aieeniiat ela taes ttl seh Rane WO ALO OP Op ad. os oh ois: acest ta ate Mega incl ba ie Matt uty untae ghierans tetera soca 2 
4 “OEFINE CMORE = Oo 0UU24200 4 
eo BEGIN FILL ACCUMCE*)] WITH UCTeU6U6060606U6060; 00024300 @ 
PE idetaoatled sen aten ate oo Dees pene TF..NQT_ SCANCACCUMC ANC 2NCReNCR) OO g0e2daoo Se 
. THEN GU TG ERRUKEXITS 00024500 | | 
e* IF x*SCANSEARCHCACCUMC»NC)S0 THEN GO ERRORExITs 00024600 4@ 
Fe Sect ego ts yas sine Wh BALE” Oat . IF Xe. TrHety.. scot ately es SOS a POY sek Sade Ee ad a 
: ; BEGIN IF NOT RETURN THEN GO TU BADGOODENGs 00024800 40 
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